(rmail-expunge-and-save): Mark summary buffer as unmodified.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 3641f470673e261a9baf951ee3fb849f3b5728e1..17b87a83c4d87d76b24239171a70c83441a82c72 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -634,7 +634,9 @@ Instead, these commands are available:
   "Expunge and save RMAIL file."
   (interactive)
   (rmail-expunge)
-  (save-buffer))
+  (save-buffer)
+  (if (rmail-summary-exists)
+      (rmail-select-summary (set-buffer-modified-p nil))))
 
 (defun rmail-quit ()
   "Quit out of RMAIL."